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SECTION 1 


INTRODUCTION 


1.1 PURPOSE 

The purpose of this program is to produce a map which gives the 
user an overall view of all components and attributes of a FORTRAN 
program unit run on the CRAY. Unlike the maps produced by the 
CRAY FORTRAN compiler, which relates only to a single module, this 
map relates to the entire program unit. It maps the usage of all 
variables and all commons used within a FORTRAN program. It also 
maps the alignment of subprograms CALLed with the arguments and 
the dummy arguments of the subprogram which is CALLed. 


1.2 SPECIFIC FEATURES 

SUPERMAP produces the following: 

o Table of all modules contained within the program. 
Specifies the module name, type, arguments, and 
length . 

o Table of references .to systems routines. Specifies 
the CALLed routine and dummy arguments, the CALLing 
module with arguments and the line reference number. 

o Table of references to modules which are not members 
of the program or system libraries. Specifies the 
CALLed routine and dummy arguments, the CALLing 
module with arguments and the line reference number. 

o Table of references by called modules. Specifies 
the CALLed routine and dummy arguments , the CALLing 
module with arguments and the line reference number. 

o Table of references by calling modules. Specifies 
the CALLing module, arguments, and line reference 
number, the CALLed module with dummy arguments . 

o List of undefined variables. Specifies variables 
used but not defined with the name of the module 
which contains the variable. 

o Table of variables grouped by name. Specifies the 
variable name along with the names of all modules 
using the variable, its type, relocation (common) , 
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and size. It also shows a frequency of how the 
variable is used in each module. As an example it 
shows the number of times a variable is used as an 
argument in a CALL, number of times it is stored, 
number of times it is used in calculations, etc. 

o Table of commons grouped by name. Specifies the 
common name along with the names of all modules 
using the common, variable names within the common, 
along with the variables type, size and how it is 
used in each module. A total length is shown for 
the common each time the module name changes. 

o Table of variables with respect to modules. Simply 
a quick cross reference chart showing the names of 
the variables with the module names. 

o Table of variables with respect to modules. Simply 
a quick cross reference chart showing the names of 
the variables with the module names. 

o Table of contents for SUPERMAP. 
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SECTION 2 


DATA FILE STRUCTURES 


2.1 


1 ] 




DATA FILE STRUCTURE 


The main input file for SUPERMAP is logical unit number one and 
its contents are the compiler generated listable CFT FORTRAN 
source code and maps for each module of the program set. See 
examples of how to prepare this file. (Section 4.2.1). 

The secondary input to SUPERMAP is logical unit number five which 
can be a terminal or a card reader. Options for the formatting of 
SUPERMAPs output are input on this device. See Usage, section 
4.1, for the options. 


2.2 OUTPUT FILE STRUCTURE 

Printed lists and tables are the only forms of output from this 
program. The output files may be formatted for either a line 
printer or terminal (CRT), see OPTIONS section 4.1. Should the 
option for a terminal be selected the width of the output is 80 
print positions; the width of printout is formatted to 132 print 
positions when a line printer is selected. 


2.3 OTHER DATA FILES 

SUPERMAP uses FORTRAN logical units 1,2, 5, 6, and 9 during a run. 
Logical unit 1, as noted above, is the main input file. Units 5 
and 6 are used for INPUT and OUTPUT respectively. Units 2 and 9 
are used internally by the program for binary data and are 
transparent to the user. 
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SECTION 3 


LIMITATIONS. TIMING and RESTRICTIONS 


3.1 LIMITATIONS OF TABLES 

SUPERMAP stores most of its information in internal tables. The 
limitations of these tables limits the amount of information which 
can be processed by SUPERMAP. 


The current limitations are: 

The table of variable names has space for 20,000 unique 
entries. The appearance of a variable name in each 
unique module requires a unique entry into this table. 
The entry to the table consists of the variable name 
associated with the module name and other information. 
Therefore, 20,000 unique variable names can be stored. 

Maximum of 100 undefined variables. 

Maximums for the tables which contain information 
about CALLS will vary with the number of arguments 
used in CALLS to sub-programs or system library 
routines. The following table illustrates the 
maximums for the average number of arguments per CALL. 


of args. 

maximum 

1 

4000 

2 

3333 

3 

2857 

4 

2222 

5 

2000 

10 

1333 

15 

1000 

20 

500 


3.2 TIMING CONSIDERATIONS 

No absolute benchmarks for timing SUPERMAP have been established. 
However, using the CRAY default of eight seconds should under 
normal conditions, be adequate for most small programs. The 
sample case, shown in appendix A, has approximately 280 FORTRAN 
statements required roughly 5 seconds to complete. A larger test 
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case with approximately 4850 FORTRAN statements required 16 
seconds. 


3.3 RESTRICTIONS 

o Input program set must be free of compiler errors. 

o Input must be a compiled listing of a program set 
with CFT ON-CNPQRSTX, OFF-ABDEFHIJLMOV option. 

o An END statement must be the last statement of each 
FORTRAN module and the END statement must be on one 
line only. 

o END FILE and END IF statements must not be broken 
into two or more lines. 

o No assembly programs or maps of assembly programs 
are allowed. 
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SECTION 4 


USAGE 


4.1 OPTIONS 

SUPERMAP defaults it output to a terminal or cathode-ray tube, 
CRT, with a maximum of twenty lines per page. The user may input 
data to alter the output to be formatted for a line printer and 
alter the number of lines per page. If the user selects the line 
printer as the output device but does not select the number of 
lines per page, the system will default to fifty lines per page. 

The options are input as: 

o PRINTER for line printer, 
o CRT for cathode-ray tube or terminal, 
o MAXLINES=n where: n is number of lines desired 
per page. 

These options may be in any order on one or more lines of input. 
If more than one option per line is input, then the options must 
be separated by commas. The input may be terminated by a period 
or left blank. 

Should there be any misspellings of an option, that option input 
ignored. Embedded blanks in the options or between options are 
ignored. 

It is advisable to include a DISPOSE statement in the job control 
when the PRINTER option is selected. 

Example of option input: 

MAXLINES=30, PRINTER. output is formatted for a line 

printer and thirty lines per page. 


or 

PRINTER 
MAXLINES ■ 30 


4.2 EXAMPLES OF JOB CONTROL LANGUAGE 

The following examples of job control are only suggested as a 
means of preparing data for and running SUPERMAP. The user may 
setup his job control as he sees fit for his use of the program. 
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However, it is required that on the CFT statement the ON option be 
set to CNPQRSTX and the OFF option be set to ABDEFHI JLMOV . Also, 
SUPERMAP needs its input file be ASSIGNed to FT01. 

In the following examples of CRAY JOB CONTROL LANGUAGE the user 
must supply the following information when using the SUPERMAP 
program. 

o compstop - computer mail stop. (DISPOSE STATEMENT) 
o ident - user identification name. 

(SAVE AND ACCESS STATEMENTS) 
o jobname - name of job. (JOB STATEMENT) 
o time - estimation of time for run. (JOB STATEMENT) 
o useracc - user account number. (ACCOUNT STATEMENT) 
o userfile - name of users file. 

(SAVE AND ACCESS STATEMENTS) 

o userid - user identification number. (ACCOUNT STAT) 
o userpass - user password. (ACCOUNT STATEMENT) 
o all information in lower case letters throughout the 
JCL. 


4.2.1 Example 1 . 

Job control language to generate and SAVE input for SUPERMAP. 

JOB, JN= jobname, T=time. SAMPLE CRAY JOB CONTROL LANGUAGE 

ACCOUNT , AC^useracc , US=user id , UPW*userpass . 

♦COMMENT: + + 

♦COMMENT: + JOB CONTROL TO PREPARE INPUT FOR A RUN + 

♦COMMENT: + OF SUPERMAP + 

♦COMMENT: + - 

CFT , ON-CNPQRSTX , OFF-ABDEFHI JLMOV , L-CFTOUT . t 

REWIND , DN-CFTOUT . 

SAVE, DN-CFTOUT, PDN-user file, ID“ident . SAVE DATA FOR INPUT. 
/EOF 

Source code program and subprograms to be input to SUPERMAP. 
/EOF 


4.2.2 Example 2 

Job control language to run SUPERMAP when the input was generated 
by another job and SAVEd as a permanent file. This example is set 
up for output going to the line printer with fifty five lines per 
page . 
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JOB, JN-j obname , T-time . SAMPLE CRAY JOB CONTROL LANGUAGE 

ACCOUNT , AC-useracc , US=userid , UPW»userpass . 

♦COMMENT: 

* COMMENT: + JOB CONTROL TO RUN THE SUPERMAP PROGRAM + 

♦COMMENT: + WHEN INPUT WAS PREPARED BY ANOTHER RUN. + 

♦COMMENT: + + 

DISPOSE , DN=$OUT, MF-AA, TID-COmpstop, DC-PR, DEFER. 

ACCESS, DN=TAPE1, PDN=user file, ID=ident. INPUT DATA IS ON THIS 
FILE. 

ASSIGN , DN-TAPE 1 , A-FTO 1 . 

ACCESS , DN»SUPER, PDN=SUPERMAP , ID=SOFTLIB . 

LDR , DN-SUPER , MAP=OFF . 

/EOF 

PRINTER, MAXLINES =55. 

/EOF 


4.2.3 Example 3 


Job control language to generate input for SUPERMAP and to run 
SUPERMAP. In this example the output will default to the CRT with 
a maximum of twenty lines per page. 

JOB, JN=j obname, T= time. SAMPLE CRAY JOB CONTROL LANGUAGE 


ACCOUNT , AC=*useracc , US=user id , UPW=userpass . 

♦COMMENT: + + 

♦COMMENT: + JOB CONTROL TO GENERATE INPUT AND RUN + 

♦COMMENT: + THE SUPERMAP PROGRAM. + 

♦COMMENT: + ■ + 


CFT,0N=CNPQRSTX,0FF=ABDEFHIJLM0V,L=TAPE1. GENERATE INPUT FOR 
SUPERMAP. 

REWIND, DN=TAPE1. 

ASSIGN, DN=TAPE1,A=FT01. INPUT DATA IS ON THIS FILE. 

ACCESS , DN=SUPER, PDN=SUPERMAP , ID=SOFTLIB . 

LDR , DN=SUPER , MAP=OFF . 

/EOF 

Source code program and subprograms to be input to SUPERMAP. 
/EOF 
/EOF 
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SECTION 5 


ERROR . ME SSAGES 


PREMATURE END OF FILE HAS BEEN READ. 

Program aborts. An unexpected END OF FILE was read. 

Correct the data on input file and restart the program. 

END STATEMENT ONLY NO OTHER FORTRAN. 

Processing continues. Warning only. 

FIRST LINE IS A CONTINUATION. 

Program aborts. First line of FORTRAN source has a 
continuation in column six. Correct the data on 
input file and restart the program. 

MODULE IS ONLY A TWO STATEMENT ROUTINE. 

Processing continues. Warning only. 

MODULE WITHOUT A NAME. ASSIGNED PROG.INV AS NAME. 

Processing continues. Warning only. Used an invented 
name for module. 

DISAGREEMENT IN NAME OF MODULE. 

When a source module does not have a name the FORTRAN 
compiler will assign it a name. The name assigned by 
the compiler may not be the same as the invented name 
given to the module when the message MODULE WITHOUT 
A NAME. ASSIGNED PROG.INV AS NAME was issued. 

Processing continues. Informational only. 

TABLE AGOOFS IS FULL. RESULTS WILL BE INCOMPLETE. 

Processing continues. Not all undefined variable names 
will be reported. 

TABLE ABLOCK IS FULL. RESULTS WILL BE INCOMPLETE. 

Warning. The output of variable information is incomplete. 
Processing continues. 
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TABLE ALLKODLS IS FULL. 

Table overflow. Program aborts.* 

TABLE ALLCALLS IS FULL. 

Table overflow. Program aborts.* 

TABLE CALLINFO IS FULL. 

Table overflow. Program aborts.* 

TABLE SUBINFO IS FULL. 

Table overflow. Program aborts.* 

*When the tables overflow the user may elect to divide the input 
file into segments and run each segment to obtain the desired map. 



SECTION 6 


GENERAL REMARKS ON READING THE OUTPUT 


6.1 ABBREVIATI ONS USED IN THE OUTPUT 
Abbreviations for column entitled DIMENSND. 


SIMPLE 

not dimensioned 

DUM. ARG 

dummy argument for function or 
subroutine 

ID 

single dimension 

2D 

double dimension 

3D 

triple dimension 

4D 

quadruple dimension 

5D 

quintuple dimension 

6D 

sextuple dimension 

7D 

septuple dimension 

When EQV. 

follows any of the dimensions this implies 

that named variable is used in an EQUIVALENCE statement 

Abbreviations 

for column entitled COMMON. 

DUM. ARG. 

dummy argument in a calling sequence. 

LOCAL. 

variable is local to named module only. 

// 

blank common 

name 

name of the common 

Abbreviations 

for column entitled TYPE. 

CHAR 

specified as CHARACTER variable 

COMP LX 

specified as COMPLEX variable 

DOUBLE 

specified as DOUBLE PRECISION variable 

INTEGER 

specified as INTEGER variable 

LOGICAL 

specified as LOGICAL variable 

PARM 

specified as PARAMETER variable 

REAL 

specified as REAL variable 


Definition of abbreviations for columns entitled USAGE: 


AG - used in CALL, function as an argument or array 
definition. 

AS - used in an ASSIGN statement. 

DD - defined in declarative. 

DP - used as DO loop parameter. 

EQ - used in EQUIVALENCE statement. 

IX - index of a DO statement. 

ST - stored and contents may change. 
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UN - declared or defined but not used. 

XS - used In executable statement. 

Note: under the USAGE heading a frequency distribution of 

how the variable is used is output. Should any one 
frequency exceed 99 then >C is output. Also, an * 
in the column entitled UN does not imply that 
variable is not used; it only implies it is set but 
not used otherwise. This parallels the CRAY FORTRAN 
maps. 


6.2 EXCEPTIONS TO ARGUMENTS 

Since SUPERMAP aligns the arguments when it produces the maps of 
references by called modules and references by calling modules, it 
is necessary to remove subscripts of an argument in a CALLING 
sequence. Also, expressions, library functions, functions, 
constants, and alpha strings are removed from the CALLing 
sequence. When SUPERMAP removes any of these arguments, it 
substitutes a name for them. These substituted names are prefixed 
with question mark (?) followed by EXPRnnn, LIBRnnn, or ALFAnnn . 
Where nnn can range from 0 to 999. 

Should any of these substitutions be made, a list of them is 
output. The list contains the name of the module where the 
substitution took place along with the line number, the CALL 
statement name, the assigned name and the string or expression 
which was replaced. 


6.3 MISCELLANEOUS REMARKS 

The number, which is shown to the left of the columns entitled 
CALLING MODULE, is the line reference number to the FORTRAN source 
program. 

Should a CALL be made to a module which is not a member of the 
program unit or one of the CRAY libraries, SUPERMAP will insert in 
its output the statement REQUIRED ARGUMENTS UNKNOWN for the list 
of arguments. This is done because SUPERMAP has no way of knowing 
the required arguments for the CALLed module. 
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APPENDIX A 


SAMPLE PRINTOUT FORMATTED FOR A LINE PRINTER 


The next several pages contain the sample output of SUPERMAP for 
the CRAY X-MP computer system. This sample was generated with the 
option input parameters set as: 

PRINTER 

MAXLINES-40 
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APPENDIX B 


Abbreviated dayfile from the run of the sample output in Appendix 
A* 


09:21:02 0.0006 CSP CRAY X-MP SERIAL-103 Zero One -AMES RESEARCH CENTER 
09:21:02 0.0006 CSP 

09:21:02 0.0006 CSP CRAY OPERATING SYSTEM COS 1.14 
09:21:02 0.0006 CSP 
09:21:02 0.0006 CSP 

09:21:03 0.0006 CSP JOB . JN-TESTSMP , T-10 . 

09:21:03 0.0015 CSP ACCOUNT, AC-, US-, UPW-. 

09:21:06 0.0457 EXP • + + 

09:21:06 0.0457 EXP • + JOB CONTROL TO RUN THE SUPERMAP PROGRAM + 

09:21:06 0.0457 EXP • + WHEN INPUT WAS PREPARED BY ANOTHER RUN. + 

09:21:06 0.0457 EXP • ♦ + 

09:21:06 0.0457 EXP DI S POSE , DN-JOUT , MF-AA , TID-BOXO , DC-PR , DEFER . 

09:21:06 0.0460 CSP ACCESS. DN-TAPE 1 .PDN-TESTSUPER.ID-mine. INPUT DATA. 
09:21:06 0.0461 PDM PD000 - PDN - TESTSUPER ID - mine ED - n 

09:21:06 0.0461 PDN PD000 - ACCESS COMPLETE 
09:21:06 0.0461 CSP ASSIGN. DN-TAPE1 .A-PT01 . 

09:21:06 0.0466 CSP ACCESS , DN-SUPER , PDN-SUPERMAP , ID-SOFTLIB . 

09:21:06 0.0467 PDM PDOOO - PDN - SUPERMAP ID - SOPTLIB ED - 1 

'09:21:06 0.0467 PDM PDOOO - ACCESS COMPLETE 
09:21:07 0.0472 CSP LDR, DN-SUPER, MAP-OFF. 

09:21:34 0.3227 USER LDOOO - BEGIN EXECUTION 

09:21:38 2.3042 USER UT010 - STOP IN SUPERMAP 

09:21:38 2.3043 CSP END OF JOB 
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APPENDIX C 


SAMPLE INPUT FOR TEST CASE 


This program is the program which became input data to the sample 
output shown in Appendix A. 

PROGRAM APROG ( INPUT, OUTPUT, TAPE5=INPUT, TAPE 6=OUTPUT) 

PARAMETER (LG10 0=100) 

EXTERNAL SIN, COS 
C 

DIMENSION A (10) , B(25) , C(50) , Xl(100), Yl(100) 

COMMON /ACOMMON/ GAMMA, DELTA, ESPILON,OMI CRON 
COMMON /BCOMMON/ X(LG100) , Y(100) , Z (50) 

COMMON A, B, C 

EQUIVALENCE (X,X1) , (Y,Y1) 

DATA X,Y/2 00*1.0/ 

C STATEMENT FUNCTION 

SQAIROOT ( ZPHI , ZCHI , ZPSI) = ( ZPSI+ZCHI+ZPHI) ** . 5 

XPHI = 5. 

XCHI =15.0 
XPSI =29.0 
CALL ASUBRT 
XX = 2.0 
YY = 4.5 
IONE » 1 
ITWO = 2 
ZZ = 0.5 

IF (AND (IONE, ITWO) .EQ. 0) IONE=l 
CALL ESUBRT (X,Y,5.0) 

CALL DSUBRT (Z (1) ,X(1) ,Y(2) ) 

CALL CSUBRT (X,Y,Z) 

CALL BSUBRT 
COMMENT ! 

CALL GSUBRT(SIN, XCHI, ZZ TRASH) 

CALL FSUBRT ( X , Y , SQRT ( 10 . ) ) 

DO 100 I = 1,100 

X ( I ) = Y ( I ) + 10. 

X(I)=X(I) * Y (I) 

X(I) =Z (5) / X(I) 

X ( I ) =X (I)-Z(4)*Y(I) 

100 CONTINUE 
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SAM - SQAIROOT (XPHI, XCHI,XPSI) 

SAM - 5.0 

CALL CSUBRT ( 1+2 , Y , Z ) 

CALL MSUBRT (ARGP , ARGQ , ARGR , ARGS , ARGT , ARGU , ARGV , ARGW , ARGX 
+ ARGY, ARGZ) 

CALL CSUBRT ( ( 1+2 ) , Y , Z ) 

SAM - 4. 

IF ( SAM .EQ. 4.) CALL HSUBRT 

IF ( SAM .EQ. 4 . ) CALL ISUBRT(X,Y,Z) 

IF( SAM .EQ. 4 . ) CALL JSUBRT(Z,X, Y(2) ) 

IF ( SAM .EQ. 4.) 

+ CALL KSUBRT ( X , Y , 5 . 0 ) 

SAM = 3. 

CALL XSUBRT ( ONE , TWO , THREE ) 

CALL LSUBRT ( ' ABCDEFGHI J ' ) 

CALL FSUBRT (X, Y, SQRT ( 10 . ) ) 

CALL FSUBRT ( XX* YY , YY , SQRT ( 10 . ) ) 

CALL FSUBRT (X, 1.2, SQRT (10.) ) 

CALL FSUBRT (+0.5E-02, YY/ZZ+. 00008, SQRT ( 10. ) ) 

CALL XSUBRT (ONE, TWO, THREE) 

SAM - 2. 

CALL EXIT 
END 

SUBROUTINE CSUBRT (A, B,C) 

A=B+C 

CALL MSUBRT (ARGP , ARGQ , ARGR , ARGS , ARGT , ARGU , ARGV , ARGW , ARGX 
+ ARGY, ARGZ) 


RETURN 

END 

SUBROUTINE FSUBRT ( A , B , C ) 

IF (A .EQ. B) THEN 

A=B-C 

ELSE 

A-B+C 

END IF 

RETURN 

END 



SUBROUTINE ISUBRT(A,B,C) 

A-B+C 

D-A+B+C 

IP (A .EQ. D) A-5.0 

RETURN 

END 

FUNCTION AFUNCTN (VAR) 

AFUNCTN - VAR * VAR 

RETURN 

END 


SUBROUTINE ASUBRT 

COMMON /ACOMMON/ GAMMA, DELTA, EPSILON , OMICRON 

COMMON /BCOMMON/ X(100) , Y(100), Z(50) 

DO 10 I « 1, 25 

Z (I) = X(I) + Y(I) 

10 CONTINUE 

GAMMA - GAMMA + DELTA + EPSILON +OMICRON 
CALL VSUBRT ("XYZ", "ABCDEFG") 

CALL MSUBRT ( ARGP , ARGQ , ARGR , ARGS , ARGT , ARGU , ARGV , ARGW , ARGX , 
+ ARGY, ARGZ) 


RETURN 

END 


SUBROUTINE BSUBRT 

COMMON /ACOMMON/ GAMMA, DELTA, EPSILON, OMICRON 
COMMON /BCOMMON/ X(100) , Y(100) , Z(50) 

ENTRY BENTRY 
DO 10 I - 1, 25 

Z (I) - X(I) - Y (I) 

10 CONTINUE 

GAMMA - GAMMA - DELTA - EPSILON - OMICRON 

RETURN 

END 


SUBROUTINE MSUBRT ( ARGP , ARGQ , ARGR , ARGS , ARGT , ARGU , ARGV , ARGW , 
+ ARGX, ARGY, ARGZ) 

EXTERNAL TAN 

DIMENSION A (25) , B(50), C(100) 

DIMENSION X(10), Y(20), Z(30) 

DATA A, B, C/175*0 ./ ,X,Y,Z/60*5./ 
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ALPHA - 0.00 
DO 100 J - 1,1000 
DO 50 K « 1, 1000 

ALPHA - ALPHA +1.0 
50 CONTINUE 
100 CONTINUE 

DO 200 I - 1, 10 
X(I) - A(I) 

Y (I) * C(I) 

Z(I) - B(I) 

200 CONTINUE 

ARGP=ARGQ-ARGR+ARGS*ARGT+ARGU+ARGV+ARGX+ 

+ ARGY-ARGZ 

ARGZA = ARGBA + ARGCA 
ARGZB - ARGBB + ARGCB 
ARGZC » ARGBC + ARGCC 
ARGZD =* ARGBD + ARGCD 
CALL QSUBRT(TAN, ZZRAD, ZANSWER) 

RETURN 

END 

SUBROUTINE QSUBRT (ZZFUN, ZZRAD, ZANSWER) 
ZANSWER- ZZFUN (ZZRAD) 

RETURN 

END 

SUBROUTINE XSUBRT ( ONE , TWO , THREE ) 

DIMENSION ONE(l) , TWO (1) , THREE (1) 

COMMON /ECOMMON / PHI(IOO), CHI(64), PSI(64) 
DO 10 I - 1, 50 

THREE (I) = TWO (I) + ONE (I) 

10 CONTINUE 

THREE (50) - AFUNCTN(TWO(50) ) 

GO TO 20 

ENTRY XENTRYB ( THREE , ONE , TWO ) 

TWO (1) » THREE (1) 

GO TO 20 

ENTRY XENTRYA ( ZETA) 

ZETA - ONE ( 1 ) +5.0 
20 CONTINUE 
RETURN 
END 

SUBROUTINE YSUBRT 

COMMON /CCOMMON/ ALPHA, BETA (1000, 1000) 
COMMON /ECOMMON/ PHI (100), CHI (64), PSI(64) 
DIMENSION A (25) , B(50) , C(100) 

DIMENSION X(10) , Y(20) , Z(30) 

DATA A, B, C/175*0 ./, X, Y, Z/60*5 ./ 

ALPHA - 0.00 
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DO 100 J - 1,1000 

DO 50 K - 1, 1000 

ALPHA - ALPHA + BETA ( J , K) 

50 CONTINUE 
100 CONTINUE 

DO 200 I - 1, 10 
X(I) - A(I) 

Y(I) - C(I) 

Z(I) - B(I) 

200 CONTINUE 
RETURN 
END 

SUBROUTINE ZSUBRT 

COMMON /CCOMMON/ XALPHA, XBETA(1000, 1000) 

COMMON /FCOMMON/ OMEGA( 100) , SIGMA (100) 

DO 2 1-1, 1000 

DO 1 K - 1,1000 

XBETA(I,K) * I * K 

1 CONTINUE 

2 CONTINUE 
RETURN 
END 

BLOCK DATA BLKDAT 
INTEGER ZINT(3 ,3,3) 

REAL ZREEL(2 , 2) 
i LOGICAL ZLOGIK ( 5 , 5 , 5 , 5 ) 

CHARACTER* 8 ZCHAR(2) 

DOUBLE PRECISION ZDBPR(IO) 

COMPLEX ZCOMPLX (2, 3,4, 2, 2) 

COMMON / Z COMMON/ ZINT, ZREEL, ZLOGIK, ZCMPLX, ZDBPR 

COMMON /WCOMMON/ ZCHAR 

COMMON /FCOMMON/ OMEGA(200) , SIGMA(IOO) 

DATA ZINT/27*0/, ZREEL/4*0 . 0/ , ZLOGIK/ 62 5*. TRUE.// 
+ ZCMPLX/96* (0. 0, 0.0)/, ZDBPR/10*0. 0D1/ 

DATA ZCHAR/ 2 * ' CHARACTR ' / 

END 

SUBROUTINE NSUBRT (ZZFUN, ZZRAD, ZZRESULT) 

Z ZRESULT-Z Z FUN ( Z ZRAD) 

CALL OSUBRT 

RETURN 

END 

SUBROUTINE OSUBRT 

PARAMETER (PAR1-10, PAR2-20, PAR3-2) 

REAL X(PAR1) , Y(PAR1), Z(PAR1) 

DIMENSION XX ( PARI , PAR2 , PAR3 ) 

DIMENSION XXX (PARI, PAR2,PAR3) , YYY(10, 10) 
DIMENSION YY (10,20) , ZZ(10,20,3) 
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INTEGER EYE (10 , 20) , JAY(10,20,3) 

DIMENSION 11(10) ,JJ(20) 

LOGICAL TRUE, FALSE, NOTTRUE ( 5 ) 

COMPLEX COMPLXA, COMPLXB(5, 10, 2) 

DOUBLE PRECISION DBLX(5) ,DBLZ 

COMMON ZZ,YY,XX,JAY,EYE 

COMMON /MCOMMON/ VARX(8) , VARY (8) ,VARZ 

COMMON /NCOMMON/ VARA, VARB,VARC(7) , VARD, VARE (5) ,VARF 
COMMON /DCOMMON/DBLZ , DBLX 
CHARACTER* 5 CHAR5 
CHARACTER* 8 CHAR8(10) 

EQUIVALENCE ( XX , XXX) , ( Z Z , YYY ) , ( PUPPIES , PUPS ) 

C 

DATA CGAR5/ ' CHAR5'/ 

C 

SAM - FUNCTA (1.0, YARG) 

CALL USUBRT (Al, A2, A3, A4) 

CALL USUBRT (Z4, Z3, Z2, Zl) 

GEORGE = FUNCTA (Z4,A4) 

DO 15 I - 1, PARI 
DO 10 J » 1 , PAR2 
DO 5 K = 1, PAR3 

XX(I,J,K) = 0.0 
5 CONTINUE 
10 CONTINUE 
15 CONTINUE 

SAMBO - 1. + PARI - 
. PAR2 

*PAR3 

CALL RSUBRT (X, Y , Z ) 

SAM - 5. 

SAM = SAM - (SAM/2.) 

IF (SAM .NE. 0.0) THEN 
SAM = 300.0 * SAM 
END IF 

WRITE (93) SAM 

RETURN 

END 
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APPENDIX D 


SAMPLE— JOB CONTROL FOR TEST CASE 


The following JOB CONTROL was used to generate the file which 
became input to SUPERMAP as a simple test case. 


JOB , JN-TESTSM , T-2 . 

ACCOUNT , AC- , US- , UPW- . 

DISPOSE , DN-$OUT, MF-AA, TID-, DC-PR, DEFER. 
CFT , ON— CNPQRSTX , OFF— ABDEFHIJLMOV , L-OUT . 
SAVE , DN-OUT , PDN— TESTSUPER , ID- . 

/EOF 
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